figminus removes features from fig to make it easier to adapt from python to other languages (at 
which point it probably wouldn't be the same language, it would be fig-inspired.) 


this is a copy of fig 4.6, with highlighted code based on the diffs between each version of figminus 

the highlighting isnt to make it easier to read— but to make it easier to find or edit out features 


# 4.7 removes 

# 4.8 removes 

# 4.9 removes 

# 5.0 removes 

# 5.1 removes 

# 5.2 removes 

# 5.3 removes 

# 5.4 removes 

# 5.5 removes 

# 5.6 removes 

# 5.7 removes 

# 5.8 removes 


pygame / graphics commands 

commands that require trig or 3rd-party libraries 
array handling commands or extraneous comments 
help feature, demo, forin loop, swap and time commands 
restriction on variable names, errors for wrong command position 
filehandling, for float step, try/except/resume/nextin/system 
string, hex, oct, sgn, sqr, mod, cruft from predecessor of fig 
# support, inline python, for loop, reverse, next 
case insensitivity, shell, chdir, asc, chr, topwr, randint 
ifless, pass, ifmore, error for reference to unset variable, instr 
user-defined functions, wend, plus 

lease, ucase, prints, len, rtrim, Itrim, left, right 


#!/usr/bin/env python2 
# coding: utf-8 

#### license: creative commons cc0 1.0 (public domain) 
#### http://creativecommons.org/publicdomain/zero/1.0/ 
proginf = "fig 4.6, dec 2017 mn" 
import sys 
import os 

from sys import stdin, stdout 

from os import popen 

try: 

from colorama import init 
initQ 

except: pass 

try: from sys import exit as quit 
except: pass 


buf = [] 


cmdhelp = [("timer", "input (shared-line) change main variable to number of seconds past midnight") 

,("arrstdin", "input (shared-line) change main variable to array containing lines of stdin") 

,("lineinput", "input (shared-line) change main variable to string input from keyboard") 

,("flineinput filepath", "input (shared-line) change main var to string of line from open file filepath") 

,("time", "input (shared-line) change main variable to string of current time: hh:mm:ss") 

, ("arropen filepath", "input (shared-line) change main variable to array of file lines in filepath") 

,("date", "input (shared-line) change main variable to string of the date: mm/dd/yyyy") 

,("arrcurl url", "input (shared-line) like arropen, except downloading url into the array") 

,("sleep seconds", "input (shared-line) wait for number of seconds before continuing with program") 

,("command", "input (shared-line) change main variable to array of command line parameters") 

,("print", "output (shared-line) output main variable to the screen (aka stdout)") 

,("prints", "output (shared-line) put main var to screen; like print but (s)tays on line.") 

,("fprint filepath", "output (shared-line) write main variable to open file designated by filepath") 

,("display", "output (shared-line) 1st time: stop automatic graphx update. 2nd, etc: update.") 

,("els", "output (shared-line) clear the screen, currently only affects text screen") 

,("graphics", "output —\\own\\line dont(or stop) suppress(ing) graphics, this is the default.") 

,("textmode", "output —\\own\\line suppress graphics; force graphics commands to use text.") 

,("colourtext colourcode", "output (shared-line) change colour of upcoming text to colourcode from 0 - 15") 
,("colortext colorcode", "output (shared-line) change color of upcoming text to colorcode from 0 - 15") 

,("highlight colourcode", "output (shared-line) change background colour of upcoming text tocolourcode 0-15") 
,("locate row column", "output (shared-line) move to textmode position at row, column") 

,("pset x y c", "output (shared-line) draw dot at location (x, y) in colourcode c (0 - 15)") 

,("line xl yl x2 y2 c", "output (shared-line) draw line from (xl, yl) to (x2, y2) in colourcode c (0-15)") 

,("while", "loop —\\own\\line mark the start of a loop (will keep going without break)") 

,("break", "loop —\\own\\line put in the middle of a loop to exit (stop looping)") 

,("for var strt stop step", "loop —\\own\\line start a for loop, changing var from strt to stop, by step") 
,("forin var array", "loop —\\own\\line loop through each item in array; for each, set var to item") 
,("iftrue ckvar", "conditional —\\own\\line run lines between iftrue and fig if ckvar is \"non-zero\"") 
,("ifequal varl var2", "conditional --\\own\\line run lines between ifequal and fig if varl equals var2") 

,("ifmore varl var2", "conditional —\\own\\line run lines between ifmore and fig if varl is > var2") 

,("ifless varl var2", "conditional —\\own\\line run lines between ifless and fig if varl is < var2") 


,("try", "conditional —\\own\\line put code that might not work between try and except") 

,("except", "conditional —\\own\\line if code between try/except fails, run the code after except") 

,("resume", "conditional —\\own\\line mark the end of try / except / resume command block") 

,("else", "conditional —\\own\\line after if- line, before fig. run lines if condition isnt true") 

,("function name pi p2 a€j", "function —\\own\\line define function named name with optional params pl,p2, 
etc") 

,("get parametername", "function (shared-line) (no longer required) copy parametername value to main var") 

,("python", "function —\\own\\line put inline python code between lines python and fig") 

, ("fig/next/nextin/wend", "fig (interchangeable) function —\\own\\line finalise a block (started by if/while/ 

function/for/forin") 

,("pass", "function --\\own\\line blocks (for/next, etc) require something inside lines; pass works / does 
nothing") 

,("lease", "function (shared-line) change main variable to all-lower-case copy of own value") 

,("ucase", "function (shared-line) change main variable to all-upper-case copy of own value") 

,("str", "function (shared-line) convert main variable from number to string") 

,("shell", "function (shared-line) run main variable contents in a command shell (os specific)") 

,("asc", "function (shared-line) change main variable from string to ascii code of 1st char") 

,("val", "function (shared-line) change main variable from string to numeric (int if whole)") 

,("len", "function (shared-line) change main variable to numeric length of main var") 

,("not", "function (shared-line) change main variable to zero if non-zero; or -1 if zero") 

,("Itrim", "function (shared-line) strip whitespace from left side of main variable") 

,("rtrim", "function (shared-line) strip whitespace from right side of main variable") 

,("chr", "function (shared-line) change main variable from numeric to ascii/uni string") 

,("arrshell", "function (shared-line) change main var to array of shell output (from main var)") 

,("arreverse", "function (shared-line) change main variable from array to reverse order of array") 

,("reverse", "function (shared-line) like arreverse (which might be faster for array) for strings") 
,("arrsort", "function (shared-line) change main variable from array to sorted array") 

,("#", "comment (can\\share) place at beginning (or end) of line, prior to a comment") 

,("():;!=,. ( ) : ; | = , .", "optional (shared-line) use in a shared line (and some others) for 
aesthetics/notation") 

,("left numofeharsoritems", "function (shared-line) change main variable to leftmost group of chars/items") 

,("right numofehrsoriterns", "function (shared-line) change main variable to rightmost group of 

chars/items") 

,("arrget array position", "function (shared-line) change main variable to position-th item from array") 


,("arrset position setto", "function (shared-line) change item in array in main variable to value of setto") 

,("mid position len", "function (shared-line) change main variable to range of len items from position") 

,("string len asciiorstr", "function (shared-line) change main variable to len instances of asciiorstr") 

,("split string splitby", "function (shared-line) split string by separator splitby into array, to main var") 

,("join array usestring", "function (shared-line) change main var to string by joining array using usestring") 

, ("instr lookin lookfor", "function (shared-line) change main var to numeric position of lookfor in lookin' 1 ) 

,("chdir", "function (shared-line) change current folder to path string from main variable") 

,("system", "function (shared-line) put on (usually at the end of) a line to stop the program") 

,("close", "function (shared-line) close the open file designated by main variable") 

,("end", "function (shared-line) interchangeable with system which ends the program") 

,("open mode", "function (shared-line) open file at filepath main variable in mode \"r\" or \"w\"") 

,("return var", "function (shared-line) (optional) exit current function, returning value var") 

,("swap varl var2", "function (shared-line) change contents of varl to contents of var2 and vice-versa") 

,("plus numstrarr", "math (shared-line) change main variable to itself plus num or string or arr") 


,("minus 
, ("divby 
, ("times 
, ("oct", 
, ("hex", 
, ("cos", 
,("sin", 
,("tan", 
,("atn", 
,("int", 
,("sgn", 
,("sqr", 


numeri c' 
numeric' 
numeric' 


"math (shared-line) 
"math (shared-line) 
"math (shared-line) 


change 

change 

change 


"math (shared-line) change 
"math (shared-line) change 
"math (shared-line) change 
"math (shared-line) change 
"math (shared-line) change 
"math (shared-line) change 
"math (shared-line) change 
"math (shared-line) change 
"math (shared-line) change 


mai n 
mai n 


man n 
mai n 
mai n 
variable 
variable 


variable to itself minus numeric") 
variable to itself divided by numeric") 
variable to itself times numeric") 
numeric decimal to octal") 


from 

from 


numeric decimal to hexadecimal") 


numeric main variable to the cosine of itself") 
numeric main variable to the sine of itself") 
numeric main variable to its tangent") 
numeric main variable to its arctangent") 
main variable from decimal (aka \"float\") to integer") 
main variable to 0 if 0, to -1 if < 0, or 1 if > 0.") 
main variable to square root of itself") 


,("mod denominator", "math (shared-line) change main variable to: main var modulus denominator") 

,("topwr n", "math (shared-line) raise numeric main variable to n-th power") 

,("randint smallst largst", "input (shared-line) change main var to random number from smallst to largst") 
,("arr", "function (shared-line) change main var to array (starting with same contents)") ] 


def chelp(f): 
ck = 0 
print "" 


for p in cmdhelp: 
rcmd = p[0] 

if f in rcmd.split()[0]: 
ck = 1 

rd = p[1].split() 
rcat = rd[0] 
rd.remove(rd[0]) 

rt = rd [0] 

rd.remove(rd[0]) 

cde = rcmd.split(" ") 
print "" 

stdout.write(" " + colour(14,0)+ cde[0]) 
cda = cde.remove(cde[0]) 
for c in cde: 

stdout.write(" " + colour(0, 7)+ " " + c + " " + colour(7,0) 
stdout.flush() 
print "" 
print "" 

print colour(3,0) + " category:", rcat, rt.replace("\\", 

print "" 

print " " + colour(7,0) + " ".join(rd) 

print "" 
colour(7,0); 
return ck 

def outfilewrite(outb, p): 
outb += [p] 

#global vrck 
#vrck += p.strip() 


def colour(f, b): 
if f == None: 


f = 0 

if b == None: 

b = 0 
n = "0" 
if f > 7: 
n = "1" 
f = f - 8 


if f == 1: f = 4 ## switch ansi colours 
elif f == 4: f = 1 ## 1 = blue not red, 4 


if f == 3: f = 6 
elif f == 6: f = 3 


if 


b>7: b=b-8 


if b == l: b = 4 

elif b == 4: b = 1 

if b == 3: b = 6 

elif b == 6: b = 3 


stdout.write("\xlb[" + n + + str(30+f) 

return "\xlb[" + n + + str(30+f) + 

def bcolour(b): 
f = None 

if f == None: f = 0 
if b == None: b = 0 
n = "0" 


if f > 7: 
n = "1" 
f = f - 8 


for qb colours 
= red not blue, etc. 


+ + str(40+b) + "m") 

+ str(40+b) + "m" 


if f == 1: f = 4 ## switch ansi colours for qb colours 

elif f == 4: f = 1 ## 1 = blue not red, 4 = red not blue, etc 

if f == 3: f = 6 

elif f == 6: f = 3 

if b>7: b=b-8 


if b == l: b = 4 
elif b == 4: b = 1 


if b == 3: b = 6 
elif b == 6: b = 3 


stdout.write("\xlb[" + n + + str(30+f) + + str(40+b) 

return "\xlb[" + n + str(40+b) + "m" 


def sgn(p): 

p = float(p) 
if p > 0: 

return 1 
if p < 0: 

return -1 
return 0 


def left(p, s): 
return p[:s] 

def right(p, s): 
return p[-s:] 


def leftfour(p): 
try: 


if left(p, 4) == chr(32) * 4: 
p = right(p, len(p) - 4) 

except: 

pass 
return p 

def atleast(s, p): 
if p < s: 

return s 
else: 

return p 

def figfsp(p): 

pp = "" 

fig = 0 

fsp = figfsplit(p) 

for fp in enumerate(fsp): 

if fig == 0 and fp[l] in cmds.keys(): 

pp += colour(8,0) + + colour(7,0) + " " 

fig = cmds[fp[l]] 
if fig < 0: 

fig = fig * -1 
else: 

fig = fig + 1 
pp += fp[l] + " " 
if fig > 0: 
fig -= 1 

if fig == 0 and fp[0] + 1 < len(fsp): 

pp += colour(8,0) + + colour(7,0) + " " 

return pp.rstripQ. replace(colour (8,0) + + colour(7,0) + " " + colour(8,0) + 

+ colour(7,0), colour(8,0) + "_" + colour(7,0) ). replace(colour (8,0) + + 

colour(7,0),colour(8,0) + "_" + colour(7,0)) 


def figfsplit(p): 

# return p.split() # that was fine when strings weren't tokens 

# we have to make this 3 tokens: variable "hello, world!" #comment not stri 

px = [] 

pxc = -1 # could use len(px) -1 instead? 

inquotes = 0 

remarked = 0 

inspc = "" 
vnspc = "" 

for 1 in p: 

if inquotes == 0 and remarked == 0 and 1 == "#": 
remarked = 1 
pxc += 1 
px += ["»] 
if remarked == 1: 
px[pxc] += 1 

if remarked == 0: 
if 1 == 

if inquotes == 0: 
inquotes = 1 
pxc += 1 
px += [""] 
else: inquotes = 0 
if inquotes == 1: 
px[pxc] += 1 

if remarked == 0 and inquotes == 0: 

if vnspc not in "1234567890-" + chr(32) and 1[0] == 

— II II 

vnspc = 1 


II II • 


if 1[0] in "():;|=,": 

1 = II II 

if inspc != " " and 1 == 
pxc += 1 
px += [»»] 
if l != " 

if pxc == -l: 
pxc += l 
px += [""] 

px[pxc] += 1 lowerQ 
inspc = 1 
#print px[:] 

while ('') in px: 

px.remove('') 
while (' : ') in px: 

px.remove(':') 
for p in range(len(px)): 
i f px [p] [0] ! = "#": 

if right(px[p], 1) == ": 
lenpx = len(px[p]) - 1 
if lenpx > 0: 

px[p] = left(px[p], lenpx) 

return px[:] 

def nob(p, s): 

f — 1(11 

if s == len(p) - 1: 
if len(p): 

if p[s].rstrip() != 
r = p[s].rstrip() 
if len(r): 

if r[-l:] == 

r = left(r, len(r) - 1) 


pfig = 


II II 


try: 


pfig = left(p[s], 3) 
except: 

pfig = "" 

if pfig.lower() == "fig" and p[s] .lower() != "fig": 
return "figg" 

try: 

if r != "": 

return r 
else: 

return p[s] 

except: 

return "" 

def snobl(p): 

if in p: 

return p 
else: 

return p.lower() 
def snob(p, s): 

= Hll 

if s == len(p) - 1: 
if len(p): 

if p[s].rstrip() != r = p[s].rstrip() 

if len(r): 

if r[-1:] == r = left(r, len(r) - 1) 

pqt = »" 

try: pqt = left(p[s], 3) 
except: pqt = "" 

if pqt.lower() == "fig" and p[s].lower() != "fig": return "figg" 
try: 

if r != "": return snobl(r) 
else: return snobl(p[s]) 


except: return 


II II 


def lnob(p, s): 

r = 1(11 

if s == len(p) - 1: 
if len(p): 

if p[s] . rstrip() != r = p[s] . rstripQ 

if len(r): 

if r[-1:] == r = left(r, len(r) - 1) 

pfig = "" 

try: pfig = left(p[s], 3) 
except: pfig = "" 

if pfig.lower() == "fig" and p[s].lower() != "fig" 
try: 

if r != "": return r lower() 
else: return p[s],lower() 
except: return "" 

def stripcoords(p): 
ps = "» 

for s in str(p): 

if s in "1234567890.": ps += s 
return ps 

def getmore(p, s): 
try: 

for t in range(l, s + 1): 
if len(p) == l: p = [] 
p = right(p, len(p) - 1) 
while "" in p: p.remove("") 

for prx in range(len(p)): 
if p[prx][0] == "#": 
p.remove(p[prx]) 


return p 


return "figg" 


except: return [] 


def getlmore(p, s): 
try: 

for t in range(l, s + 1): 
if len(p) == l: p = [] 
p = right(p, len(p) - 1) 
while "" in p: p.remove("") 
return p 

except: return [] 
def getpairs(p, s): 

r = ||n 

if len(p): 

if p[len(p) - 1].rstrip() != r = p[len(p) - l].rstrip() 

if len(r): 

if r[-l:] == 

r = left(r, len(r) - 1) 

P[len(p) - 1] = r 

try: 

p = right(p, len(p) - s) 
if not len(p) % 2: return p 
else: return [] 
except: return [] 

def lc(): 

global linecount 
global flen 

es = " \xlb[0;37;40m" 

return "\xlb[0;37;44m" + right(chr(32) * flen + str(linecount), flen) + es 

def wr(p, nl): 
global buf 
buf += [p + nl] 


colour(ll, None) 

print proginf; colour(7, None) 

pri nt 

nl = chr(10) 

addtoout = [0] 
addto = [0] 

addtoout[0] = """import sys, os 
from sys import stdin, stdout 
from sys import argv as figargv 

try: 

from colorama import init 
initQ 
except: 

pass # (only) windows users want colorama installed or ansi.sys enabled 


try: 

from sys import exit as quit 
except: 
pass 

from random import randint 

from time import sleep 

from os import chdir as figoch 
from os import popen as figpo 
from os import system as figsh 

from os import name as figosname 
figsysteme = 0 
figfilehandles = {} 
figfilecounters = {} 


IIIIII 


addtoout += [0] 
addto += [0] 

addtoout[l] = """from sys import stdout 
def figlocate(x, 1 = "ignore", c = "ignore"): 
import sys 

if 1 == "ignore" and c == "ignore": pass 
# do nothing, want it to return an error? 

elif 1 < 1 and c != "ignore": 

sys.stdout.write("\xlb[" + str(c) + "G") # not ansi.sys compatible 
elif 1 != "ignore" and c == "ignore": 

sys.stdout.write("\xlb[" + str(l) + ";" + str(l) + "H") 
else: sys.stdout.write("\xlb[" + str(l) + ";" + str(c) + "H") 

import time 

def fignonz(p, n=None): 
if n==None: 

if p == 0: return 1 
else: 

if p == 0: return n 
return p 

def fignot(p): 

if p: return 0 
return -1 

figbac = None 
figprsbac = None 
sub = None 

def fignone(p, figbac): 


if p == None: return figbac 
return p 
return -1 


def stopgraphicsQ : 
global yourscreen 
global figraphics 
figraphics = 0 
try: pygame.quit() 
except: pass 


IIIIII 

addtoout += [0] 
addto += [0] 

addtoout[2] = "" 

addtoout += [0] 
addto += [0] 

addtoout[3] = """figraphics = -1 

figrupd = 1 

try: import pygame 

except: figraphics = 0 

yourscreen = "" 

try: pygame.init() 

except: figraphics = 0 # unable to init pygame, just use text 
def figpset(z, x, y, c): 

global figraphics, figrupd 
global yourscreen 
global figcgapal 
if figraphics == -1: 

#pygame.init() 


try: 


yourscreen = pygame.display.set_mode((800, 600)) 
pygame.display.set_caption("fig graphics screen") 

#pygame.quit() 
figraphics = 1 
except: 

stopgraphicsQ 
figraphics = 0 
if figraphics == 0: 

if x > -1 and y > -1: 
figcolourtext(c, c) 

figlocate(0, int(y) + 1, int(x) + 1) 
stdout.write(unichr(9608)) 
sys.stdout.flushQ 
if figraphics == 1: 

if x > -1 and y > -1: 

yourscreen.set_at((x, y), figcgapal[c]) 

#pygame.draw.circle(yourscreen,(255, 255, 255),(int(x), int(y)), 1, 0) 
if figrupd: pygame.display.update() 
for event in pygame.event.get(): 
if event.type == pygame.QUIT: 
figraphics = 0 
stopgraphicsQ 

def figline(z, x, y, x2, y2, c): 
global figraphics, figrupd 
global yourscreen 
global figcgapal 
if figraphics == -1: 

#pygame.init() 

try: 

yourscreen = pygame.display.set_mode((800, 600)) 
pygame.display.set_caption("fig graphics screen") 

#pygame.quit() 


figraphics = 1 
except: 

stopgraphicsQ 
figraphics = 0 
if figraphics == 0: 

if x > -1 and y > -1 and x2 > -1 and y2 > -1: 
figcolourtext(c, c) 

if x2 < x: x, y, x2, y2 = x2, y2, x, y 
figliney = [y, y2] 
figlinec = 0 

figlinestep = int(y2 - y) 
if figlinestep < 0: 

figlinestep = int(y - y2) 
figlinec = 0 
if figlinestep < 1: 
figlinestep = 1 

figlinestep = float(1) / figlinestep 
figlinex = x 
while 1: 

if figlinex > x2: break 
if y2 - y == 0: 

figlocate(0, int(y) + 1, int(figlinex) + 1) 
stdout.write(unichr(9608)) 
elif y2 < y: 

figlinec -= figlinestep 

figlocate(0, int(y + int(float(y - y2) / fignonz(x2 - x,.l) * 
fignonz(figlinec,.1) ) ) + 1, int(figlinex) + 1) 
stdout.write(unichr(9608)) 
else: 

figlocate(0, int(y + int(float(y2 - y) / fignonz(x2 - x,.l) * 
fignonz ( figlinec,.1) ) ) + 1, int(figlinex) + 1) 
stdout.write(unichr(9608)) 
figlinec += figlinestep 

#[0] = figliney[0]+float(figliney[l] - figliney[0]) / (x2 - x) 


figlinex += figlinestep 


figlocate(0, int(y) + 1, int(x) + 1) 
stdout.write(unichr(9608)) 
figlocate(0, int(y2) + 1, int(x2) + 1) 
stdout.write(unichr(9608)) 
sys.stdout.flushQ 

if figraphics == 1: 

if x > -1 and y > -1 and x2 > -1 and y2 > -1: 
yourscreen.set_at((x, y), figcgapal[c]) 
pygame.draw.line(yourscreen, figcgapal[c], 
if figrupd: 

pygame.display.update() 
for event in pygame.event.get(): 
if event.type == pygame.QUIT: 
figraphics = 0 
stopgraphicsQ 


def anykeypyg(): 

global yourscreen 
global figraphics, figrupd 
P = 0 

while not p: 

if figraphics == 0: break 

time.sleep(0.001) 

for event in pygame.event.get(): 

if event.type == pygame.KEYDOWN: 

if figrupd: pygame.display.update() 
P = 1 


(I II II 


addtoout += [0] 


(x, y), (x2, y2), 1) 


addto += [0] 

# -2: print(variable, etc) 

# -1: print(variable), 0: variable = int(variable), 1: variable=left(variable, etc) 

cmds = {"ltrim":0, "lineinput":0, "len":0, "asc":0, "atn":0, 


"str":0, 

"get":l, 

"chr":0, 

"prints":-l, 

"sleep":-2, 

"arrsort":-l, 

"arreverse":-1, 

"reverse":©, 

"display":-1, 

"system":-1 

"end":-l, 

"print":-l, 

"arrset":-3, 

"split":2, 

"left":1, 

"join":2, 

"arrget":2, 

"mid":2, 

"right":l, 

"plus":l, 

"times":l, 

"close":-l, 

"els":-1, 

"flineinput":1, 

"fprint":-2 

"open":-2, 

"arropen":1, 

"arrstdin":0, 

"arrcurl":l, 

"colourtext 

"highlight":-2 

, "divby":1, 

"hex":0, 

"rtrim":0, 

"string":2, 

"timer":©, 

"command":0, 

"time":0, 

"date":0, 

"tan":0, 

"oct":0, 

"val":0, 

"minus":1, 

"lcase":0, 

"ucase":0, 

"int":0, 

"left":1, 

"swap":-3, 

"locate":-3, 

"pset":-4, 

"line":-6, 

"return":-2, 

"randint":2, 

"topwr":l, 

"arr":0 , 

"mod":1, 

"cos":0, 

"not":0, 

"sin":0, 

"instr":2, 

"chdir":-l, 

"shell":-1, 

"arrshell":0, 

"colortext":-2, 

"sgn":0, 


"sqr": 0} 


funcs = { unction" 

-1, 

"iftrue" : -2, 

"ifequal" : -3, "ifless 

"ifmore" 

-3, 

"try" : 0, 

"except" : 0, "resume 

"else" 

0} 




ufunc = {} 

#addfuncs = addtoout[0] + addtoout[l] + addtoout[3] + """ 
addfuncs = """ 
def figcolortext(x, f): 
b = 0 

if f == None: f = 0 
if b == None: b = 0 
n = "0" 
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if f > 7: 
n = "1" 
f = f - 


if f == 1: f = 4 ## switch ansi colours for qb colours 

elif f == 4: f = 1 ## 1 = blue not red, 4 = red not blue, etc 

if f == 3: f = 6 

elif f == 6: f = 3 

if b > 7: b = b - 8 

if b == l: b = 4 

elif b == 4: b = 1 

if b == 3: b = 6 

elif b == 6: b = 3 

stdout.write("\\xlb[" + n + + str(30+f) + "m") 

return "\\xlb[" + n + + str(30+f) + + str(40+b) + "m" 

def figcolourtext(x, f): 
b = 0 

if f == None: f = 0 
if b == None: b = 0 
n = "0" 
if f > 7: 
n = "1" 
f = f - 8 


if f == 1: f = 4 ## switch ansi colours for qb colours 

elif f == 4: f = 1 ## 1 = blue not red, 4 = red not blue, etc 

if f == 3: f = 6 


elif f == 6: f = 3 


ifb>7:b=b-8 

if b == l: b = 4 

elif b == 4: b = 1 

if b == 3: b = 6 

elif b == 6: b = 3 


stdout.write("\\xlb[" + n + + str(30+f) + 

return "\\xlb[" + n + + str(30+f) + + 


"m") 

str(40+b) + "m" 


figcgapal = [(0,0,0), 

(170, 0, 0), (170, 0, 170), 

(85, 85, 85), (85, 85, 255), 

(255, 85, 85), (255, 85, 255), 


(0, 0, 170), 
(170, 85, 0), 
(85, 255, 85), 
(255, 255, 85), 


(0, 170, 0), (0, 170, 170), 

(170, 170, 170), 

(85, 255, 255), 

(255, 255, 255)] 


def figget(p, s): 
return s 


def fighighlight(x, b): 
f = None 

if f == None: f = 0 
if b == None: b = 0 
n = "0" 
if f > 7: 
n = "1" 
f = f - 8 


if f == 1: f = 4 ## switch ansi colours for qb colours 

elif f == 4: f = 1 ## 1 = blue not red, 4 = red not blue, etc. 

if f == 3: f = 6 


elif f == 6: f = 3 

if b > 7: b = b - 8 

if b == l: b = 4 

elif b == 4: b = 1 

if b == 3: b = 6 

elif b == 6: b = 3 

stdout.write("\\xlb[" + n + str(40+b) + "m") 
return "\\xlb[" + n + str(40+b) + "m" 

def figinstr(x, p, e): 
try: 

return p.index(e) + 1 
except: 

return 0 

def figchdir(p): 
try: 

figoch(p) 

except: 

print "no such file or directory: " + str(p) 
figend(1) 

def figshell(p): 

global figsysteme 
try: 

figsysteme = figsh(p) 
except: 

print "error running shell command: " + chr(34) + str(p) + chr(34) 
figend(l) 


def figarrshell(c): 
global figsysteme 
try: 

figsysteme = 0 
sh = figpo(c) 

ps = sh.read().replace(chr(13) + chr(10), 
chr(10)).replace(chr(13), chr(10)).split(chr(10)) 
figsysteme = sh.close() 
except: 

print "error running arrshell command: " + chr(34) + str(c) + chr(34) 
figend(l) 
return ps[:] 

def figsgn(p): 
p = float(p) 
if p > 0: 

return 1 
if p < 0: 

return -1 
return 0 

def figstr(p): 

return str(p) 

def figprint(p): 
print p 

def figchr(p): 

if type(p) == str: 
if len(p) > 0: 
return p[0] 
return chr(p) 


def figprints(p): 


stdout.write(str(p)) 
sys.stdout.flush() 

def figleft(p, s): 
return p[:s] 

def figmid(p, s, x): 
arr = 0 

if type(p) == list or type(p) == tuple 
ar r = 1 
rt = p[s - l: 
x + s - 1] 

if arr and len(rt) == 1: 

rt = rt [0] 
return rt 

def figright(p, s): 
return p[-s:] 

def figrandint(x, s, f): 
return randint(s, f) 

def figlcase(p): 

return p.lowerQ 

def figucase(p): 

return p.upperQ 

def figint(p): 

return int(p) 

def figarrset(x, p, s): 
if type(s) == tuple: 

if len(s) == 1: fas = s[0] 


elif type(s) == list: 

if len(s) == 1: fas = s[0] 
else: 

fas = s 
x [ p - 1] = s 

def figopen(x, s): 
import fileinput 
if s.lower() == "w": 

if (x) not in figfilehandles.keys(): 

figfilehandles[x] = open(x[:], s.lowerQ) 
elif s.lowerQ == "r": 

if (x) not in figfilehandles.keysQ: 

figfilehandles[x] = fileinput.input(x[:]) 
figfilecounters[x] = 0 

else: 

if (x) not in figfilehandles.keysQ: figfilehandles[x] = open(x[:], s[:]) 

def figfprint(x, s): 
fon = figosname 
sep = chr(10) 
if fon == "nt": 

sep = chr(13) + chr(10) 
figfilehandles[s].write(str(x) + sep) 

def figflineinput(x, s): 
try: 

p = figfilehandles[s][figfilecounters[s]].replace(chr(13), 

"").replace(chr(10), "") 
figfilecounters[s] += 1 
except: 

p = chr(10) 
return p 


def figclose(x): 

if (x) in figfilehandles.keys(): 
figfilehandles[x].close() 
del figfilehandles[x] 
try: 

del figfilecounters[x] 
except: 
pass 

def figcls(x): 

if figosname == "nt": 

els = figsh("cls") 
else: 

stdout.write("\xlb[23\xlb[l;lH") 
sys.stdout.flush() 

def figarropen(x, s): 

x = open(s).read().replace(chr(13) + chr(10), chr(10)).replace(chr(13), 
chr(10)).split(chr(10)) 
return x[:] 

def figarrcurl(x, s): 

from urllib import urlopen 
x = str(urlopen(s).read()) 
x = x.replace(chr(13) + chr(10), 

chr(10)).replace(chr(13), chr(10)).split(chr(10)) 
return x[:] 

def figarrstdin(x): 
ps = [] 

for p in stdin: 

ps += [p[:—1]] 
return ps[:] 


def figarrget(x, p, s): 
if l: 

return p[s - 1] 


def figplus(p, s): 

if type(p) in (float, int): 

if type(s) in (float, int): 

p = p + s 
else: 

p = p + s # float(s) if you want it easier 
if p == float(int(p)): 

P = int(p) 


else: 


if type(p) == str: p = p + s # str(s) if you want i 
if type(p) == list: 

if type(s) == tuple: 

p = p + list(s) 
elif type(s) == list: 

p = p + s [: ] 
else: 

p = p + [s] 
if type(p) == tuple: 

if type(s) == tuple: 

p = tuple(list(p) + list(s)) 
elif type(s) == list: 

p = tuple(list(p) + s[:]) 
else: 

p = tuple(list(p) + [s]) 


return p 


def figjoin(p, x, s): 

— llll 

if len(x): 

t = str(x [0]) 


t easier 


for c in range(len(x)): 

if c > 0: t += str(s) + str(x[c]) 
return t # s.join(x) 

def figarr(p): 

if type(p) in (float, int, str): 

P = [p] 
else: 

p = list(p) 
return p 

def figsplit(p, x, s): 
return x.split(s) 

def figval(n): 
n = float(n) 

if float(int(n)) == float(n): 

n = int(n) 
return n 

def figtimes(p, s): # this wasnt supposed to be removed in 5.0 
if type(p) in (float, int): 

p = p * s # float(s) if you want it easier 
if p == float(int(p)): 

P = int(p) 

else: 

if type(p) == list: 

p = p[:] *s# figval(s) 
else: 

p = p * s # figval(s) if you want it easer 

return p 

def figdivby(p, s): 
p = float(p) / s 


if p == float(int(p)) 
P = int(p) 
return p 

def figminus(p, s): 
return p - s 

def figtopwr(p, s): 
p = p ** s 

if p == float(int(p)) 
P = int(p) 
return p 

def figmod(p, s): 
return p % s 

def figcos(p): 

from math import cos 
p = cos(p) 

if p == float(int(p)) 
P = int(p) 
return p 

def figsin(p): 

from math import sin 
P = sin(p) 

if p == float(int(p)) 
P = int(p) 
return p 
def figsqr(p): 

from math import sqrt 
p = sqrt(p) 
if p == float(int(p)) 
P = int(p) 
return p 


def figltrim(p): 

return p.lstrip() 
def f-igline-input(p): 

return raw_input() 
def figlen(p): 

return len(p) 
def figasc(p): 

return ord(p[0]) 
def figatn(p): 

from math import atan 
p = atan(p) 

if p == float(int(p)): 

P = int(p) 
return p 

def fighex(p): 

return hex(p) 
def figrtrim(p): 

return p.rstrip() 
def figstring(x, p, n): 
if type(n) == str: 

return n * p 
return chr(n) * p 
def figtimer(p): 

from time import strftime 

return int(strftime("9oH") )*60*60+int (strftime ("?oM") )*60+int (strftime ("?oS") ) 

def figtime(p): 

from time import strftime 
return strftime("%H:?6M:S8S") 

def figdate(p): 

from time import strftime 
return strftime () 


def figcommand(p): 

return figargv[l:] 

def figtan(p): 

from math import tan 
p = tan(p) 

if p == float(int(p)): 

P = int(p) 
return p 

def figoct(p): return oct(p) 

def figsleep(p, s): 
sleep(s) 

def figarrsort(p): 
p.sortQ 

def figdisplay(x): 

global figraphics, figrupd 

figrupd = 0 

if figraphics == 1: 

pygame.display.update() 

def figreverse(p): 

if type(p) == list: 
p.reverse() 
return p 

elif type(p) == str: 
p = map(str, p) 
p.reverse() 
p = "".join(p) 
return p 


def figarreverse(p) 
p.reverse() 

def f-igfunction(p, 
return p 

def figend(x): 
quit() 

def figif (p, s): 
return p 

def figthen(p, s): 
return p 

def figsystem(x): 
quitQ 


IIIIII 


demo = """ 
p 7 arr times 5 

x "hello, world!" 
x 5 

x 5 times 7 

x 3 plus 5 times 7 

abs 

z x abs 

x z str asc abs int 

function hello p 
x "hello, " 
x prints return 5 


fig 

x hello x 

c command print 

function add5 r 
x get r plus 5 return x 

fig 

p print 

p print arrset 2 8 print 
z join p print 

x z print 
now add5 p print 
p print end 

function ppp 
z 32 chr print 
for p 1 100 1 
x randint 0 3 
y randint 0 3 
c randint 1 9 

c colourtext 7 
next 

fig 

z ppp 
z sleep 1 

z ppp sleep 2 z ppp 
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p = "" 

try: 

p = right(sys.argv, 1)[0] 
except: 
pass 

if not ".fig" in p.lowerQ: 
if p.lower() == "help": 

stdout.write(nl + " type (any) part of the command you want help on." + 
nl + nl + " fig will show all matches." + nl * 3 + " " * 4) 
helpf = chelp(raw_input()) 
if not helpf: 

print(colour (14,0) + nl + " no commands match your search.") 
print("") 
colour(7,0) 
quitQ 
else: 

print "using built-in demo source, translating to demo.fig.py..." 
pri nt 

p = "demo.fig" 

inputfile = demo.replace(chr(13), "").split(nl) 

else: 

try: 

inputfile = open(p).read().replace(chr(13) + chr(10), 
chr(10)).replace(chr(13), chr(10)).split(chr(10)) 
except: 

print "couldn't open \"" + p + "\", exiting." 

pri nt 

quitQ 

try: 

outfile = open(p + ".py", "w") 
except: 

print "couldn't write to \"" + p + ".py" "\", exiting." 

pri nt 

quitQ 


outname = p + ".py" 


flen = len(str (len(-inputf-ile))) 

linecount = 0 
indent = 0 
inlinep = 0 
errorin = 0 
errorsrc = "" 
error = "" 
mode = 0 

figraphics = -1 # -1 = uninitialised, 0 = textmode, 1 = initialised 

vrs = [] 

vr = "" 

outb = [] 

ingfx = 0 

linesoutc = 0 

for p in inputfile: 
linecount += 1 
vrop = 0 
vrcl = 0 

if linecount == 1: 

outfile.write("#!/usr/bin/env python2" + nl + "# encoding: utf-8" + nl) 
if in proginf: 

outfile.write("# fig translator version: " + proginf.split(", M )[0] + nl) 
if inlinep: 

if p. lower() . stripQ == "fig": 
inlinep = 0 
print lc() + p 

indent = atleast(0, indent - 4) 
else: 

print lc() + colour(2, None) + p + colour(7, None) 


#96 write copied lines of inline python 
outfilewrite(outb, chr(32) * atleast(0, indent - 4) + 
leftfour(p) + nl) 

elif mode == "output the following:": 
if p.lower().strip() == "display": 
mode = 0 
print lc() + p 
else: 

wr(chr(32) * atleast(0, indent) + "print \"" + p.replace(chr(34), 

"\" + chr(34) + \"").replace(chr(92), "\" + chr(92) + \"") + "\"") 
print lc() + p.replace(chr(34), "\" + chr(34) + \"").replace(chr(92), 
"\" + chr(92) + nl) 

elif mode == 0: 

x = figfsplit(p.lstrip()) 

Ip = p.lower() 

if not len(p): 

print lc() + "" 

#96 write copied blank lines from inline python 
outfilewrite(outb, nl) 

if len(p.lstrip()): 

e = 0 

if p.lstrip()[0] == "#": 
if linecount == 1: 
es = 0 
try: 

if p.lstrip()[1] == "!": 
es = 1 

except: es = 0 
if not es: 


wr(p, nl) 

print lc(), figfsp(p) 

else: print lc() + "[this first comment isn't copied over]" 
es = 0 
else: 

#96 write comments 

#print colour(14, 0) + p + colour(7,0) ; znul = raw_input() #$ 
outfilewrite(outb, chr(32) * atleast(0, indent) + p + nl) 
print lc(), figfsp(p) 

elif lnob(x, 0) == "figg": 
e = 2 

elif lp.rstrip() == "python": 
indent += 4 
inlinep = 1 
print lc() + p 

else: # changed to if 1: in figminus 5.4 

if not lnob(x, 0) == 0: # was if not lnob(x, 0) == "figg": prior to figminus 5.1 
if lnob(x, 0) != "fig" and not lnob(x, 

0) in cmds.keysO and not lnob(x, 

0) in funcs.keysQ + ["forin", "for", "function", "nextin", 

"next", "while" ] + ["break", "pass"]: 

if not lnob(x, 0) in vrs: 

vrs += [lnob(x, 0)[:]] # main vars, also func params, etc 
#96 write variable 

#var: print colour(14, 0) + "variable:" + lnob(x, 0) + colour(7,0) ; znul 

raw_input() #$ 

outfilewrite(outb, nl) 

outfilewrite(outb, chr(32) * atleast(0, indent) + 

"figlist = 0" + nl) 


outfilewrite(outb, chr(32) * atleast(0, indent) + 


"try: figlist = int(type(" + lnob(x, 0) + ") == list)" + nl) 

outfilewrite(outb, chr(32) * atleast(0, indent) + 

"except NameError: pass" + nl) 

outfilewrite(outb, chr(32) * atleast(0, indent) + 

"if not figlist: " + lnob(x, 0) + " = 0" + nl) 

if lnob(x, 0) == "fig": 

#print 1c () + p 

#96 write? its whitespace 

#$ 

indent = atleast(0, indent - 4) 

if lnob(x, 0) == "wend": 

#print 1c () + p 

#96 write? its whitespace 

#$ 

indent = atleast(0, indent - 4) 

if lnob(x, 0) == "next": 

#print 1c () + p 

#96 write? its whitespace 

#$ 

indent = atleast(0, indent - 4) 
if lnob(x, 0) == "nextin": 

#print 1c () + p 

#96 write? its whitespace 

#$ 

indent = atleast(0, indent - 4) 
if Inob(x, 0) == "try": 

#print 1c () + p 
#96 write try line 
#$ 

outfilewrite(outb, chr(32) * atleast(0, indent) + "try:" + nl) 
indent = atleast(0, indent + 4) 
if lnob(x, 0) == "else": 


#print 1c () + p 
#96 write else line 


if 


if 


if 


if 


#$ 

outfilewrite(outb, chr(32) * atleast(0, indent - 4) 
"else:" + nl) 
lnob(x, 0) == "except": 

#print 1c () + p 

indent = atleast(0, indent - 4) 

#96 write except line 
#$ 

outfilewrite(outb, chr(32) * atleast(0, indent) + 
"except:" + nl) 

indent = atleast(0, indent + 4) 
lnob(x, 0) == "resume": 

#print 1c () + p 

#96 write? its whitespace 

#$ 


indent = atleast(0, indent - 4) 
lnob(x, 0) == "while": 

#print 1c () + p 

#96 write simple loop 

#$ 

outfilewrite(outb, chr(32) * atleast(0, indent) + 
"while 1:" + nl) 
indent += 4 

lnob(x, 0) == "function" and len(getmore(x, 1)) > 0: 
#print 1c () + p 
mkf = [] 

funcname = getlmore(x, 1)[0] 
prm = 1 
while 1: 
try: 


+ 


aprm = getlmore(x, 1)[prm] 
if len(aprm): 


if aprm[0] != 

mkf += [aprm] 

if aprm not in vrs: vrs += [aprm[:]] 

prm += 1 
except: break 

ufunc[funcname] = mkf[:] #; print ufunc # # 

#print ufunc 

#print len(ufunc[funcname]) 

#96 write func def 

#$ print colour(14,0)+ "def " + funcname + "(" + ", ".join(mkf) + "):" + colour(7,0) 

outfilewrite(outb, chr(32) * atleast(0, indent) + "def " + 
funcname + "(" + ", ".join(mkf) + "):" + nl) 
indent += 4 

if lnob(x, 0) == "for" and len(getmore(x, 1)) == 4: 

#print 1c () + p 

gmro = getlmore(x, 1)[0] 

gmrt = getlmore(x, 1)[1] 

gmrh = getlmore(x, 1)[2] 

gmrf = getlmore(x, 1)[3] 

if gmro not in vrs: vrs += [gmro[:]] 

if "." not in gmrf and (gmrf .stripQ) not in ("0", 

"0.0", "-0") and "." not in gmrt and "." not in gmrh: 

#96 write standard for loop 
#$ 

outfilewrite(outb, chr(32) * atleast(0, indent) 

+ "for " 

+ gmro + " in range(int(float(" + gmrt + 

")), int(float(" + gmrh + ")) + figsgn(" + gmrf + 

"), fignonz(int(float(" + gmrf + ")))):" + nl) 
else: 

#96 write for loop that allows floating step 
#$ 

outfilewrite(outb, chr(32) * atleast(0, indent) + gmro 


+ " = float(" + gmrt + ") - float(" + gmrf + ")" + nl + 
chr(32) * atleast(0, indent) + "while 1:" + nl + chr(32) * 
atleast(0, indent + 4) + gmro + " += float(" + gmrf + 

")" + nl + chr(32) * atleast(0, indent + 4) + "if " + 
gmrf + 

" > 0 and " + gmro + " > float(" + gmrh + "): break" + nl 
+ chr(32) * atleast(0, indent + 4) + "elif " + gmrf + 

" <= 0 and " + gmro + 

" < float(" + gmrh + "): break" + nl) 

indent += 4 

if lnob(x, 0) == "forin" and len(getmore(x, 1)) == 2: 

#print 1c () + p 

gmro = getlmore(x, 1)[0] 

gmrt = getlmore(x, 1)[1] 

if gmro not in vrs: vrs += [gmro[:]] 

#96 write forin command with params 
#$ 

outfilewrite(outb, chr(32) * atleast(0, indent) + "for " + 
gmro + " in " + gmrt + ":" + nl) 
indent += 4 

if lnob(x, 0) == "break": 

#print 1c () + p 

#96 write break command 

#$ print 

outfilewrite(outb, chr(32) * 
atleast(0, indent) + "break" + nl) 

if lp.rstrip() == "graphics": 
ingfx = 1 

#96 write change to default mode (dont suppress gfx) 

#$ 

outfilewrite(outb, chr(32) * atleast(0, indent) + 


+colour(7,0) 


"figraphics = -1" + nl) 
figraphics = -1 

outfilewr-ite(outb, chr(32) * atleast(0, indent) + 

"figpset(0, -1, -1, 0)" + nl) 

#print 1c () + p 

if lnob(x, 0) == "textmode": 

#print 1c () + p 
addto[3] = 1 

#96 write change to text mode (suppress graphics) 

#$ 

outfilewrite(outb, chr(32) * atleast(0, indent) + 

"figraphics = 0" + nl) 

outfilewrite(outb, chr(32) * atleast(0, indent) + 

"stopgraphics()" + nl) 
figraphics = 0 

if lnob(x, 0) == "pass": 

#print 1c () + p 
#96 write pass command 
#$ print 

outfilewrite(outb, chr(32) * 
atleast(0, indent) + "pass" + nl) 

if lnob(x, 0) == "iftrue": 

#print 1c () + p 
#96 write iftrue 

#$ print colour(14,0) + "if " + snob(x, 1) + " > " + snob(x, 2) + 

outfilewrite(outb, chr(32) * atleast(0, indent) + "if " + 

lnob(x, 1) + ":" + nl) # was snob(x, 1) + ":" + nl) before figminus 5 

indent += 4 


":\n"+ » ; » 


.5 


if lnob(x, 0) == "ifequal" and len(getmore(x, 1)) == 2: 

#print 1c () + p 
#96 write ifequal 

#$ print colour(14,0) + "if " + snob(x, 1) + " > " + snob(x, 2) 

+colour(7,0) 

outfilewrite(outb, chr(32) * atleast(0, indent) + "if " + 
lnob(x, 1) + " == " + lnob(x, 2) + ":" + nl) # was snob(x, 1) + " 
":" + nl) before figminus 5.5 

indent += 4 

if lnob(x, 0) == "ifless" and len(getmore(x, 1)) == 2: 

#print 1c () + p 
#96 write ifless 

#$ print colour(14,0) + "if " + snob(x, 1) + " > " + snob(x, 2) 

+colour(7,0) 

outfilewrite(outb, chr(32) * atleast(0, indent) + "if " + 

lnob(x, l) + " < " + lnob(x, 2) + ":" + nl) # was snob(x, 1) + " < 

":" + nl) until figminus 5.5 

indent += 4 

if lnob(x, 0) == "ifmore" and len(getmore(x, 1)) == 2: 

#print 1c () + p 
#96 write ifmore 

#$ print colour(14,0) + "if " + snob(x, 1) + " > " + snob(x, 2) 

+colour(7,0) 

outfilewrite(outb, chr(32) * atleast(0, indent) + "if " + 

lnob(x, l) + " > " + lnob(x, 2) + ":" + nl) # was snob(x, 1) + " > 

":" + nl) until figminus 5.5 

indent += 4 

if lnob(x, 0) in cmds.keys(): # + ufunc.keys(): 
e = 4 

shin = lnob(x, 0) 


+ ":\n"+ " ; " 

= " + snob(x, 2) + 


+ ":\n"+ " ; " 

" + snob(x, 2) + 


+ ":\n"+ " ; " 

" + snob(x, 2) + 


if lnob(x, 0) != "fig" and lnob(x, 

0) not in funcs.keysQ + ["forin", "for", "function", 

"nextin", "next", "while" "wer ] + ["break" ]: 

#print 1c () + p 
vr = lnob(x, 0) 

#print vr, type(vr) 

#print getlmore(x, 1) 
prsc = 0 
cstrctr = 0 
csbuf = [] 
vrcs = "" 

for prs in getmore(x, 

#$ print prs 
if "fig" in prs: 
if prs[:3] == 
e = 2 
break 
break 

if prs in funcs.keys(): 
e = 3 

shin = prs 

prsc += 1 
if cstrctr > 0: 
vrcs += prs 
cstrctr -= 1 
if cstrctr == 0: 

if lnob(x, prsc - 1) == "return": 

#96 write return command 

#$ print colour(14,0) +vrcs + " ; " +colour(7,0) 

outfilewrite(outb, chr(32) * atleast(0, 
indent) + vrcs) 


1): # was for prs in getlmore(x, 1): before figminus 5.8 

"fig": 


+ lnob(x, 0) 


elif lnob(x, prsc - 2) == "swap": 

vrcs = lnob(x, prsc - 1) + ", " + lnob(x, 

prsc - 0) + " = " + lnob(x, 

prsc - 0) + ", " + lnob(x, prsc - 1) 

#96 write swap of 2 vars in python syntax 
#$ print colour(14,0) +vrcs + " ; " +colour(7,0) 
outfilewrite(outb, chr(32) * atleast(0, 
indent) + vrcs + " ; ") 
else: 

if figprsbac in ufunc.keys(): 

#96 write parametered func call 

#$ print colour(14,0)+ vrcs + ") ; " + lnob(x, 0) + " = fignone(" 

+ ", figbac) ; " +colour(7,0) 

outfilewrite(outb, chr(32) * atleast(0, 
indent) + vrcs + ") ; " + lnob(x, 0) + 

" = fignone(" + lnob(x, 0) + 

", figbac) ; ") 
vrcl += 1 
else: 

#96 write builtin func call assignment 

#$ print colour(14,0)+ vr + " = " + vrcs + ") ; " +colour(7,0) 
outfilewrite(outb, chr(32) * 
atleast(0, indent) + vrcs + ")" + nl) 
vrcl += 1 

else: 

vrcs += ", " #; print "*" 

#i f 

continue 

if prs.lower() in funcs.keys() + ["forin", "for", 

"function", "nextin", "next", "while", 

"wend"] + ["break", "pass"]: 

e = 3 


figprsbac = None 


if cstrctr == 0: 

if not prs. lower() in vrs: 

if prs.lower()[0] in "abcdefghijklmnopqrstuvwxyz": 
if not prs. lower() in ufunc.keys(): 

if not prs.lower() in funcs.keys(): 

if not prs. lower() in cmds.keys(): 
e = 5 

shin = prs 


if 


prs.lower() in vrs and cstrctr == 0: 
#and len(getmore(x, 1)) == 

#96 write lefthand variable 
#$ print colour(14,0)+ vr 
outfilewrite(outb, chr(32) 
vr + " = " + prs.lower() + 


l: 

assignment 

+ " = " + prs.lower() 

* atleast(0, indent) + 
nl) 


+colour(7,0) 


if prs[0] == »\"»: 

#96 write string assignment (any place in shared line) 
outfilewrite(outb, chr(32) * atleast(0, indent) + 
vr + " = " + prs + nl) 


if prs[0] in ".1234567890-": 

#96 write numerics 

outfilewrite(outb, chr(32) * atleast(0, indent) + 
vr + " = " + prs + nl) 


if prs[0] == 

#96 write trailing comments #$ print colour(14, 0) + prs + colour(7,0) 

outfilewrite(outb, prs + "" + nl) 

break 


if prs. lower() in ufunc.keys(): 

#96 write pre-func-call var backup for sub-style behavior #$ print colour(14, 
+ "figbac = " + lnob(x,0) + " ; " + colour(7,0) 

outfilewrite(outb, chr(32) * atleast(0, indent) + 

"figbac = " + lnob(x,0) + nl) # ## 
figprsbac = prs.lower() 

cstrctr = len(ufunc[prs]) 

#print cstrctr 
if cstrctr == 0: 

#96 write zero-param func/?sub call 

#$ print colour(14, 0) + vr + " = " + prs.lower() + "() ; " + lnob(x, 0) 
fignone(" + lnob(x, 0) + ", figbac) ; " + colour(7,0) 

outfilewrite(outb, 

chr(32) * atleast(0, indent) + 

vr + " = " + prs.lower() + "()" + nl + chr(32) * atleast(0, indent) + 
lnob(x, 0) + " = fignone(" + lnob(x, 0) + ", figbac)" + nl) # # 
else: 

#print "y" 

vrop += 1 

vrcs = vr + " = " + prs.lower() + "(" 

#$ print colour(4, 0) + vr + " = " + prs.lower() + "(" + colour(7,0) #$ 

#multiparameter 

if prs.lower() in cmds.keys(): 

if prs.lower() in ["display", "pset", "line"]: 

ingfx = 1 
##print prs 
cstrctr = cmds[prs] 

##print cstrctr 
if cstrctr == -1: 

#96 write zero-param subs 

#print colour(14, 0) + "fig" + prs.lower() + "(" + vr 
#+ ") ; " + colour(7,0) ; #znul = raw_input() #$ 


outfilewrite(outb, chr(32) * 
atleast(0, indent) + "fig" + 
prs.lower() + "(" + vr + ")" + nl) 
vrcl += 1 

if cstrctr == 0: 

#96 write zero-param functions 

#print colour(14, 0) + vr + " = fig" + prs.lower() 

#+ "(" + vr + ") ; "+ colour(7,0) ; #znul = raw_input() 
outfilewrite(outb, chr(32) * atleast(0, 
indent) + vr + 

" = fig" + prs.lower() + "(" + vr + ")" + nl) 
vrcl += 1 

if cstrctr < -1: 

if prs == "return": 

cstrctr = abs(cstrctr) - 1 
vrcs = "return " #parameter 
else: 

cstrctr = abs(cstrctr) - 1 
if prs == "swap": 

vrcs = "swap " 
else: 

vrop += 1 

vrcs = "fig" + prs lower() + "(" + vr 
vrcs += ", " #multiparameter 

else: 

vrop += 1 

vrcs = vr + " = fig" + prs,lower() + "(" + vr 
vrcs += ", " #multiparameter 

vrop == vrcl and e == 0: 
print lc(), figfsp(p) 


#96 finish each line with If 
outfilewrite(outb, "" + nl) 
else: 

print lc() + p 

else: 

e = 2 

if e == 1: 
e = 0 

if not len(error): 

error = "error: problem in command structure or details." 
errorin = linecount 
errorsrc = p 

print lc() + colour(14, 0) + str(p) + colour(7, 0) 
break 

if e == 2: 
e = 0 

if not len(error): 

error = "error: cannot create variable or function beginning" 
error += " with \"fig\"" 
errorin = linecount 
errorsrc = p 

print lc() + colour(14, 0) + p + colour(7, 0) 
break 

if e == 3: 
e = 0 

if not len(error): 

error = "error: single-line command \"" + shin + "\" not on own line" 
errorin = linecount 
errorsrc = p 

print lc() + colour(14, 0) + p + colour(7, 0) 


break 


if e == 4: 
e = 0 

if not len(error): 

error = "error: shared-line function \"" 

error += shin + "\" cannot be used to start a line" 

errorin = linecount 

errorsrc = p 

print lc() + colour(14, 0) + p + colour(7, 0) 
break 

if e == 5: 
e = 0 

if not len(error): 

error = "error: variable or function not created, but referenced, 
error += shin + "\" needs to be set before first use" 
errorin = linecount 
errorsrc = p 

print lc() + colour(14, 0) + p + colour(7, 0) 
break 

if vrcl != vrop: 

e = 0 

if not len(error): 

error = "error: a command has the wrong number of parameters." 
errorin = linecount 
errorsrc = p 

print lc() + colour(14, 0) + str(p) + colour(7, 0) 
break 


if ingfx == 0: 

addtoout[3] = "" 

outfile.write(addtoout[0] + addtoout[l] + addtoout[3] + addfuncs) 


for outsb in outb: 

outfile.write(outsb) 
outfile.close() 

pri nt 

if errorin: 

print error 
colour(14, None) 

print "error in line " + str(errorin) + 
colour(7, None) 
print errorsrc 
else: 

try: 

os.system("chmod +x \"" + outname + "\"") 
except: 
pass 

colour (11, None) 

print "translation complete. ", 

colour(7, None) 

print "here's a python script you can run: ", 
print colour(ll, None) + outname + colour(7, None) 
pri nt 


